C:/Programming/doxygen/gl2d/FBGL2D7.h

Go to the documentation of this file.

/*

        Easy GL2D

        Relminator 2012
        Richard Eric M. Lope BSN RN

        http://rel.phatcode.net


*/


#ifndef GL2D_H_INCLUDED
#define GL2D_H_INCLUDED

/*
#define ARGB_A(u) (((u) shr 24) and &H000000FF)
#define ARGB_R(u) (((u) shr 16) and &H000000FF)
#define ARGB_G(u) (((u) shr 8)  and &H000000FF)
#define ARGB_B(u) (((u) shr 0)  and &H000000FF)
#define ARGB( r, g, b, a )      rgba( (b), (g), (r), (a) )
*/

#define GL2D_RGBA( r, g, b, a ) RGBA( b, g, r, a )

#define GL2D_RGB( r, g, b ) RGBA( b, g, r, 255 )


/******************************************************************************

                          ENUMS and STRUCTURES

******************************************************************************/

enum GL2D_FLIP_MODE
{

    FLIP_NONE   = 1 shl 0,              
    FLIP_V      = 1 shl 1,                      
    FLIP_H      = 1 shl 2                       
};


enum GL2D_BLEND_MODE
{

    BLEND_TRANS = 0,    
        BLEND_SOLID,            
        BLEND_BLENDED,          
        BLEND_GLOW,                     
        BLEND_ALPHA,            
        BLEND_BLACK                     
};

struct Image
{

    integer     width;                          
    integer     height;                         
    single      u_offset;                       
    single      v_offset;                       
    single      texture_width;          
    single      texture_height;         
    GLuint      textureID;                      
};


sub Begin2D();


sub End2D();

sub ScreenInit( byval as integer width, byval as integer height, byval as integer flags = 0 );

sub ShutDown();

sub VsynchOn();

function LimitFPS( byval as single max_FPS );

sub SetBlendMode( byval as GL2D_BLEND_MODE mode );

sub EnableSpriteStencil( byval as integer flag, byval as GLuint gl2dcolor, byval as GLuint gl2dcolor_env );

sub EnableAntialias( byval as integer flag = 1);

sub ClearScreen();

sub LineGlow( byval as integer x1, byval as integer y1,
                          byval as integer x2, byval as integer y2,
                          byval as integer width, byval as GLuint color,
                          byval as image ptr spr = 0 );

sub Pset( byval as integer x, byval as integer y, byval as GLuint color );

sub Line( byval as integer x1, byval as integer y1, byval as integer x2, byval as integer y2, byval as GLuint color );

sub LineGradient( int x1, int y1, int x2, int y2,
                   const GLuint color1, const GLuint color2 );

sub Box( byval as integer x1, byval as integer y1, byval as integer x2, byval as integer y2, byval as GLuint color );

sub BoxFilled( byval as integer x1, byval as integer y1, byval as integer x2, byval as integer y2, byval as GLuint color );

sub BoxFilledGradient( byval as integer x1, byval as integer y1, byval as integer x2, byval as integer y2,
                        byval as GLuint color1, byval as GLuint color2,
                        byval as GLuint color3, byval as GLuint color4 );

sub Triangle( byval as integer x1, byval as integer y1, byval as integer x2, byval as integer y2, byval as integer x3, byval as integer y3, byval as GLuint color );

sub TriangleFilled( byval as integer x1, byval as integer y1, byval as integer x2, byval as integer y2, byval as integer x3, byval as integer y3, byval as GLuint color );

sub TriangleFilledGradient( byval as integer x1, byval as integer y1, byval as integer x2, byval as integer y2, byval as integer x3, byval as integer y3,
                               byval as GLuint color1, byval as GLuint color2, byval as GLuint color3 );

sub Ellipse( byval as integer x, byval as integer y, byval as integer a, byval as integer b, byval as integer degrees, byval as GLuint color );

sub EllipseFilled( byval as integer x, byval as integer y, byval as integer a, byval as integer b, byval as integer degrees, byval as GLuint color );

/******************************************************************************
******************************************************************************/

sub Sprite( byval as integer x, byval as integer y, byval as integer flipmode, byval as Image ptr spr );

sub SpriteScale( byval as integer x, byval as integer y, byval as single scale, byval as integer flipmode, byval as Image ptr spr );

sub SpriteScaleXY( byval as integer x, byval as integer y, byval as single scaleX, byval as single scaleY, byval as integer flipmode, byval as Image ptr spr );

sub SpriteRotate( byval as integer x, byval as integer y, byval as integer angle, byval as integer flipmode, byval as Image ptr spr );


sub SpriteRotateScale( byval as integer x, byval as integer y, byval as integer angle, byval as single scale, byval as integer flipmode, byval as Image ptr spr );


sub SpriteRotateScaleXY( byval as integer x, byval as integer y, byval as integer angle, byval as single scaleX, byval as single scaleY, byval as integer flipmode, byval as Image ptr spr );


sub SpriteOnBox( byval as integer x1, byval as integer y1,
                             byval as integer x2, byval as integer y2,
                                 byval as single uoff, byval as single voff,
                                 byval as integer flipmode, byval as Image ptr spr );

sub SpriteOnQuad( byval as integer x1, byval as integer y1,
                                  byval as integer x2, byval as integer y2,
                                  byval as integer x3, byval as integer y3,
                                  byval as integer x4, byval as integer y4,
                                  byval as single uoff, byval as single voff,
                                  byval as integer flipmode, byval as Image ptr spr );


sub SpriteStretchHorizontal( byval as integer x, byval as integer y, byval as integer length, byval as Image ptr spr ); 


sub SpriteStretchVertical( byval as integer x, byval as integer y, byval as integer height, byval as Image ptr spr );   

sub SpriteStretch( byval as integer x, byval as integer y, byval as integer length, byval as integer height, byval as Image ptr spr );  

sub PrintScale( byval as integer x, byval as integer y, byval as single scale, byref const as string text, byval as GLuint color );


sub overload InitSprites( Image ptr SpriteSet(),
                                                  Uinteger Texcoords(),
                                                  byref filename as string,
                                                  byval as GLuint filtermode = GL_NEAREST);

                                                  
sub overload InitSprites( Image ptr SpriteSet(),
                                                  byval as integer tile_wid,
                                                  byval as integer tile_hei,
                                                  byref filename as string,
                                                  byval as GLuint filtermode = GL_NEAREST);

sub DestroySprites( Image ptr Spriteset() );

function LoadBmpToGLsprite( byref as string filename,
                            byval as GLuint filtermode = GL_NEAREST);

function LoadImageToHW( byval as Image ptr spr, byval as GLuint filtermode = GL_NEAREST );

sub GetImage( byval Image ptr SpriteDest, byval as Image ptr SpriteSource, byval as integer x1, byval as integer y1, byval as integer x2, byval as integer y2 );

sub FontLoad( byval as integer glyph_width, byval as integer glyph_height,
                          byval as integer fontoffset, byref as string filename, byval as GLuint filter_mode = GL_NEAREST );

#endif // GL2D_H_INCLUDED